home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / NCMCTCSUSER.cpt / NCMC-TCS user / card_2859.txt < prev    next >
Text File  |  1988-09-28  |  6KB  |  262 lines
  1. -- card: 2859 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2777
  5. -- name: Main Menu
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global a,lastday
  9.   put lastday into field "laston"
  10.   put the abbrev date into field "now"
  11.   hide msg
  12.   put "Wait for the All Clear"
  13.   put the seconds into starttime
  14.   put 0 into a
  15.  
  16. end opencard
  17.  
  18. on idle
  19.   global port,starttime,a
  20.   put the time into field 4
  21.   if SPortHasChar(port) then
  22.     put empty into reslts
  23.     put recvUpTo(port,return,2,false,false) into newIn
  24.     put newIn after reslts
  25.     if the length of reslts >0 then
  26.       if a<>1 then
  27.         put reslts after card field 1
  28.       end if
  29.       if card field 1 contains "ges." then
  30.         put 1 into a
  31.       end if
  32.       if reslts contains "con" then sendSPort port,false,return
  33.       if reslts contains "to con" then sendSPort port,false,return
  34.       if reslts contains "key to" then sendSPort port,false,return
  35.       if reslts contains "Main M" then
  36.         answer "Ready to go to Areas"
  37.         hide MSG
  38.       end if
  39.       if reslts contains "CTRL-C" then sendSPort port,false,"√ß"&return
  40.     end if
  41.   end if
  42. end idle
  43.  
  44.  
  45. -- part 1 (button)
  46. -- low flags: 00
  47. -- high flags: 8004
  48. -- rect: left=79 top=191 right=213 bottom=179
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: EMail
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   global port
  60.   sendSPort port,false,"e"&return
  61.   go card "Email Menu"
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 2 (button)
  67. -- low flags: 00
  68. -- high flags: 8004
  69. -- rect: left=204 top=191 right=213 bottom=304
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Files
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   global port
  81.   sendSPort port,false,"f"&return
  82.   go card "File Menu"
  83. end mouseUp
  84.  
  85.  
  86.  
  87. -- part 3 (button)
  88. -- low flags: 00
  89. -- high flags: 8004
  90. -- rect: left=375 top=305 right=327 bottom=475
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Log off
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   global port
  102.   sendSPort port,false,"g"&return
  103.   answer "What'll it be?" with "Yes, bye" or "NO WAIT!!"
  104.   if it="Yes, bye" then
  105.     sendsPort port,false,"y"&return
  106.     put empty into card field 1
  107.     go card 1
  108.   else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  109.   else sendSPort port,false,"a"&return
  110.  
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part 4 (field)
  116. -- low flags: 00
  117. -- high flags: 0004
  118. -- rect: left=57 top=67 right=182 bottom=457
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 2
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: 
  127.  
  128.  
  129. -- part 5 (button)
  130. -- low flags: 00
  131. -- high flags: 8004
  132. -- rect: left=328 top=191 right=213 bottom=428
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Info
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   global port
  144.   sendSPort port,false,"i"&return
  145.   go card "Info Menu"
  146. end mouseUp
  147.  
  148.  
  149.  
  150. -- part 6 (button)
  151. -- low flags: 00
  152. -- high flags: 0000
  153. -- rect: left=54 top=31 right=68 bottom=90
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 21060 / 21060
  156. -- text alignment: 1
  157. -- font id: 0
  158. -- text size: 12
  159. -- style flags: 0
  160. -- line height: 16
  161. -- part name: New Button
  162. ----- HyperTalk script -----
  163. on mouseUp
  164.   show card field "info"
  165.   show button "more info"
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 7 (field)
  171. -- low flags: 81
  172. -- high flags: 0004
  173. -- rect: left=83 top=93 right=191 bottom=416
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 0
  180. -- line height: 12
  181. -- part name: info
  182. ----- HyperTalk script -----
  183. on mouseup
  184.   hide card field "info"
  185.   hide button "more info"
  186. end mouseup
  187.  
  188.  
  189. -- part 8 (button)
  190. -- low flags: 80
  191. -- high flags: 0000
  192. -- rect: left=255 top=164 right=180 bottom=300
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: more info
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   show card field "more info"
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 9 (field)
  209. -- low flags: 81
  210. -- high flags: 0004
  211. -- rect: left=89 top=111 right=194 bottom=423
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 0
  215. -- font id: 3
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: more info
  220. ----- HyperTalk script -----
  221. on mouseup
  222.   hide card field "more info"
  223. end mouseup
  224.  
  225.  
  226. -- part contents for background part 5
  227. ----- text -----
  228. 10:17 PM
  229.  
  230. -- part contents for background part 1
  231. ----- text -----
  232.  
  233.  
  234.  
  235.  
  236.  
  237. Sat, Jul 2, 1988, 6:52 PM
  238. Thu, Sep 8, 1988, 8:07 PM
  239.  
  240. -- part contents for background part 4
  241. ----- text -----
  242. Sun, Sep 25, 1988
  243.  
  244. -- part contents for card part 7
  245. ----- text -----
  246. Welcome to the NCMC TCS. I hope you like what you see and call back often.  
  247. A couple notes about this stack.  Buttons that are "rounded rectangles" indicate that they are a popupmenu. So hold down the mousebutton until you see the menu. 
  248. Also, if you're a sysop, contact me (Phil Smy) about having a stack like this for your system*
  249.  
  250.  
  251. -- part contents for card part 9
  252. ----- text -----
  253. I can be contacted in the following ways:
  254. 1) By this BBS (System Operator)
  255. 2) MacNET: PSMY
  256. 3) GEnie: P.SMY
  257. Thank you.
  258.  
  259.  
  260. -- part contents for background part 3
  261. ----- text -----
  262. Sat, Sep 24, 1988, 12:06 AM